SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSS YYY YYY SSS LLL 000 000 AAA AAA 
SSS vYY YYY SSS LLL 000 000 AAA ABA 
SSS YYY YYY SSS LLL 000 000 AAA AMA 
SSS yyy yYY SSS LLL 000 000 AAA ABA 
SSS yyy yYY SSS LLL 000 000 AAA AAL 
SSS yyy yYY SSS LLL 000 000 AAA AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA AAA 
SSS YYY SSS LLL 000 000 A 
SSS YYY SSS LLL 000 000 AAAAAAAAAAAAAAA 
SSS YYY SSS LLL 000 000 AAAAAAAAAAAAAAA 
SSS vYY SSS) LLL 000 000 AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSSSSSSSSSSS YYY SSSSSSSSSSSS LLELLLLLLLLLLLLL 000000000 AAA AAR 
SSSSSSSSSSSS vYY SSSSSSSSSSSS LELLLLLLLLLLLLL 000000000 AAA AAA 
SSSSSSSSSSSS yyy SSSSSSSSSSSS LLLLLLLLLLLLLLL 000000000 AAA AAA 


N 12 


**F ILE**1D**DSTROLCK 
DDDDDDDD SSSSSSSS ITTITITTITTT RRRRRRARR DODDDDDD LL cccccccc =KK KK 
DODDDDDD SSSSSSSS TTTTTTTTTT RRRRRRRR DODDDDDD LL cccccccc kK KK 
dD DD SS TT RR RR 0D DD LL cc KK K 
DD DD SS TT RR RR 0D DD LL cc KK KK 
dD DD SS TT RR RR OD DD LL cc KK KK 
dD DD SS TT RR RR 0D DD LL cc KR 
DD DD SSSSSS TT RRRRRRRR DD DD LL cc KKKKKK 
DD DD SSSSSS TT RRRRRRRR DD DOD LL cc KKKKKK 
DD DD SS TT RR RR DD DD LL cc KK 
DD DD SS TT RR RR DD DD LL cc KK KK 
DD DD SS TT RR RR DD DD LL cc KK KK coe 
DD dD SS TT RR RR Dd DD LL cc KK KK cece 
DODDDDDD SSSSSSSS TT RR RR DDDDDDDD LLLLLLLLLL ccCCCCCC KK KK eee 
DDDDDDDD SSSSSSSS TT RR R DDDDDDDD LLLLLLLLLL cccccccc =KK KK cee 
LL III] SSSSSSSS 
LL III SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] $s 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] $$ 
LL I] SS 
LLLLLLLLLL III] SSSSSSSS 
LLLLLLLLLL W111] SSSSSSSS 
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Seren iue TIMESTAMP _R 

CHECK_T veke AMP - “Check bitmap timestamp 


foal 


Send deadlock foune message 
Receive deadlock found message 
- Send a redo deadlock search message 


CH = anos deadlock search 
CvT_ID_TO_LKB = Convert a lockid to LKB address 
SEND Uk, MSG™= Send any deadlock detection message 


— 2 
CMAPS 


ry oy 
Onfor — 


uw QS I Oot 


SACL G = Deallocate deadlock message buffer 
LCK ACLOE. CONGCDRP = Allocate a long CDRP 
WAIT_FOR_POOL - Wait for pool 


BELLO LL LL LL Le em mm fm me fm 


ee ee ee ee ee er ee 
a a a a SN 


Wwroror 


Orvos 
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eTITL ROLCK = DISTRIBUT ADLOCK DETECT 
TATU RS TROL er DISTRIBUTED DEADLOCK DETECTION AND RESOLUTION 


COPYRIGHT (c) 1978, 1980 
ITAL PRENT eGORPORATION, MAYNARD, MASSACHUSETTS. 


R GHTSR 


1982, 1984 BY 


4; 
5 3* % 
3* § 
: 3* DIG & 
‘* ALL RI * 
P ra 
10 ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
11 ;* ONLY IN ACCORDANCE WITH TH tenn OF SUCH LICENSE AND WITH THE * 
1§ 3* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
13 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
13 3* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
! :* TRANSFERRED. * 
° ® 
i$ :* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
18 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
44 i :* CORPORATION. : 
44 1 :* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
000 § :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ® 
3 ® 
090 ¢ d seenaunanseunsgnencesenedsecehnadsensennesareopenesnceadonsenecoreoeteoostes 
it 3 p++ 
000 8 3 FACILITY: EXECUTIVE, SYSTEM SERVICES 
$00 0 : ABSTRACT: 
it 1; This module papseuente distributed deadlock detection fond. resolution) 
00 g 5 for | VMS lock manager system services (SENQ and $DEQ) wh 
099 Z : operating in a VAXcluster environment. 
900 5 ; ENVIRONMENT: VAX/VMS, VAXcLuster loadable code 
Bnd $ : AUTHOR: Steve Beckhardt, CREATION DATE: 28-Feb-1984 
200 33 : MODIFIED BY: 
41: V03-006 $RB0143 Steve Beckhardt Jul-1984 
+g 3 Changed handling of cat ting. Tottures to ond : “deadlock 
43; search. Instead of calling it a deadlock, the see8 is now 
44; pieces back on the end of the time out queye wi a fresh 
45 ; 5 ine and retry count. This should el minate, the 
rt 3 occas onal false deadlocks. As a result, the maximum 
2 3 me Lifetime was reduced to 5 (1.6 secs.) 
rt ; v03-005 SRBO ¢ Beckhardt 9-Jul-1984 
0; pre0! “bugs in tinesten ifet oe (f°: increased 
13 maximum timestamp Lifetime to 6 secs.) 
é : v03-004 SRBO134 Steve Beckhardt 22-Jun-1984 
: 3 Fixed bug in stack handling in insufficient pool code. 
: ; V03-003 SRBO0130 Steve Beckhardt 18-May-1984 
: Fixed bug involving location of test for NODLCKWT flag. 


oy 


- DISTRIBUTED DEADLOCK DETECTION AND RES Ig- SEP-1984 00: 33: :31 VAX/VMS Macro V04-00 Page 3, DSTI 


9:19 CSYSLOA.SR REID DSTRDLCK.MAR; 1 Vv 


v03-002 sne012> teve Beckhardt 22-May-1984 
ixed bug involving race between process level handlin 
bf gck granted message (getting lock on PCB queue) an 
rece ving deadlock search messene.. 


v03-001 gne0tt? Steve Beckhardt 10-Mar-1984 
Fixed bugs, added support for LcKsn, NODLCKWT flag. 
Added support for waiting for pool. 
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LSBTTL DECLARATIONS 
: INCLUDE FILES: 


: EXTERNAL SYMBOLS: 


SCADEF ; Conditional assembly switches 
SCORPDEF ; CORP offsets 

hers tel ; Cluster message offsets 
CLUBDEF ; CLUB offsets 

than $f ; CSB offsets 

DYNDEF 3; Structure type code definitions 
$F KBDEF : Fork block offsets 

SIPLOEF 3 IPL definitions 

SLCKDEF 3; LCK definitions 

SLKBDEF 3; LKB offsets 

SPCBDEF ; PCB cffsets 

SRSBDEF 3; RSB offsets 

SSSDEF 3; System status code definitions 


: > MACROS: 
: EQUATED SYMBOLS: 
oO ra lee TSLT_UNITS = 50*1000*10 Time stamp Lifetime units (50 ms.) 
0000000 MAX_TSLT = 5 Maximum timestamp Lifetime shift count 
0 (represents 1.6 secs. 


This also represents the interval 
that must elapse before local searches 
can proceed without timestamps 


LOCKFRAME = 24 Number of bytes pushed onto 
stack for each recursive call 
of SEARCH_RESDLCK ( reg sters 
plus return address). This 
cannot be changes without making 
corresponding coding changes 

his must also agree with the 
symbol of the same name in 
DEADLOCK.MAR. 


; OWN STORAGE: 


~PSECT $$$040,LONG 
-ALIGN LONG 


PRORNOR ON = MOOD O00 00000.0.0.0.0.0.0.0.0.000000000000000090909 IJIN NNN 


AALS O ODN NEW 9 ODN NEF WWIN 9 OD NA UE WIN CO ODNOAUNEWIN OOOO 


aD ee me a ed ah a a 8 ds a a sd th a Ss 4 


00000018 
000000 
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Vb0-006 DECLARATIONS Bree pn bbe besa9:19 FeelOR.eaesostaoice.mar:1 P29 5, 
: 7 : NOTE: The fork block and lock message buffer must be adjacent 
1 ikmsG_FKB: 
00000000 0000909 1 -QUAD 0 3 syoue Links 
1 «WORD FKBSK_LENGTH 3 
A 1 yt DYNSC-FRK 3 Type 
1 -BYT IPL$_ SYNCH 3 Fork IPL 
000000 134 -BLKB FKESR LENGTH 12 : Remainder of fork block 
135 LKMSG_BFR: ; Buffer to use for lock messages 
0000004C i ! § ~BLKB LKMSGSK_DLM +» EINGTH 

rt: } 5 peeereereeerereeeeeeeeeee ARAAAAAAAAAAAAAAAAAARAAAAAAAAAAAARAERERAARERAAAAEAEAAAEE 

rt’ 1? : NOTE: The following assumptions are in effect for this entire module 

rt: 148 WITTIITITIIITILII LITT LLLILI LLL LLL LLL LLL TTL LLL TLL tii TTT Ti iiiiiin 

4C¢ 132 ASSUME ttt tee TSLT EQ Maitttts MEMSEQ 

40 «614 ASSUME MSG$L_ORIGEPI: EQ +LKMSGS$B_TSLT 

4C 128 ASSUME tkA SOS “ORIEL KI: EQ 44L LKASGSL_ORIGEPID 

4C 8614 ASSUME tty eye EQ 4*LKMSG$L_ORIGLKID 

4C 133 ASSUME LKMSG$Q_BI1TMAP_EXP EQ 4+LKMSG$L_ORIGCSID 

04C 14 ASSUME LKMSGSL_VCTMPRT EQ 8+LKMSG$Q_BITMAP_EXP 

rt: 150 ASSUME ett? neat EQ 4+LKMSGS$L_VCTMPRT 

4C 8151 ASSUME LKMSGSL_VCTMCSID EQ 4+LKMSGSL_VCTMLKID 

bee 1 $ ASSUME LKMSGSL_NEXTLKID EQ 4+LKMSGSL_VCTMCSID 

Oct 184 

00000005 155 -PSECT $$$020 


cyger verecrion hnes sgosepotgge 0355 YAKS ag OKO ye, POOP 


vO4=000" LCKSSND. TIME 


: 


T 
«SBTTL LCKSSND_TIMESTAMP_ROQST 


p++ 
; FUNCTIONAL DESCRIPTION: 


ryre routine sends a timestamp reques he system eens 
imesta t unless this S rece is issu my timestamps. @ message 
i: actua L sone. is routine does not return to yet, caller. 
Retece. e stack oy unwound and we ont deadlock detection, 
this rout he ny returns to its caller if this system 
ssuing timestamps and we success wily get one. 


CALLING SEQUENCE: 
BSBW LCKSSND_TIMESTAMP_RQST 
Note: This routine only returns to its caller if a timestamp 
is issued yt! & In all other cases, the stack is 
reset and we exit from deadlock detection. 
INPUT PARAMETERS: 


R8 EPID of original process 
R10 Stack position to unwind to 


IMPLICIT INPUTS: 


It is assumed that the lock that started the deadlock search is 
still at the head of the timeout queue. 


OUTPUT PARAMETERS: 


R9 Address of a meosage buffer template to be used instead 
of a real message buffer if a timestamp is assigned locally 


SIDE EFFECTS: 
The bitmap is cleared if we issue a time stamp 


Bete Ge Ge Ge Ge Ge Fe Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se Ge Ge Ge Se Ge Ge Ge Ge Se Se Sse Se Bete 


LCKSSND_TIMESTAMP_RQST:: 
“MOVL 


—— = QOODODOOOO 000000 OOO O09 09 09 09 69 69 69 69 09 09 SII NISSEN NPA AAA AAAAOOUIUIN 


ARI OD OOD NAN ANS OOD NAME WII? O OOO NA UNE WIN SO OO NAME WIN OO OD NAUE UP OOO 


PIPPI PIPPIN INR 3 at at a a nn nn kk at at at tt tt 


54 00000 Bo GF OD Gre gkSGL TIMOUTQ,R4 3 get f eS1B of lock (from head of queue) 
53 00000 D rp Ee6l. S_CcSID, rs 3 ret of system issuing timestamps 
049A ’ BSBu UERSALLOC. LONGCDRP : Allocate @ CDRP 
5150 € BLBC : Error 
; Store necessary info. in CDRP to be able to start a deadlock 
3 : search Later. 
52 2Ca5 9 MOVAB i RPSL_VAL1(R5) ,R2 : Point into CDRP gate area 
23 1 BSBB $ ; Store data in CORP 
5C AS ? D ity, L_VA pias) 3; Store victim C3ie 
30 a4 OD MOVL fit IB(R : Store next lockid 
6 AS CORP c VALIOCRS) 
O270'CF 9€ MOVAB BLp TIMESTAMP_RQST,- ; Store address of message build routine 
4C AS tore C TASGBLOCRS) 


DETECTION AND RES 19-8 orl oge 90:33:31 AX/VMS Macro V04-00 Page fy 


your 005" CCRSSND TEMEST p SYSLOA.SRCIDSTROLCK.MAR; 1 


vr 
zr 
oOo 


on 
ARK 


; Remove lock from timeout queue, reset the stack, and send the message. 


REMQUE LKBSL_ASTQFL(R4),RO ; Remove LKB from timeout queue 
BICW aK T ; Clear corresponding status bit 


3040 SF +4 TIMOU 
2A A LKBSW_STATUS(R4) 


Qua’ BSBW NO_BLCK_MSG : Send the 
32 (i? eeyssé witht 
408: 3; We are issuing timestamps 
55 54 0 MOV R4,R5 3 Save LKB addres 
54 4E AG OA MOVIBL LKGSB.TSLT(RG) RG t Eat cloccten Titectas 
re SBB eft [JRESTARP 
22 54 :~«OC BLBC R4,7 : Bitmap in use 
5 ‘ 5 0 OVL R5,R4 3; Restore LKB address 
59 “is CF W*LKMSG_BFR,RY ; Point to internal message buffer 
E A p sit sf KBSK CENGTH(R9) : Is it in use? 
3; Yes 
08 AD OAO2 BF B MOV #LKMSGS$K_SRCHDLCKa8- : Store facility and function codes 
'CLSMSGSR_FAC_LCK cLsmscéa FACILITY(R9) 
52. OC ag *5 MOVAB LKNSGSU_MEMSEQCR9S JR ; Point to ata area 
3 n fields 
51 30 Ad MOVL LKBSL_LKID(R4) ,R1 3 Get next lockid to search (this one) 
ec Ad = 50 MOVa RO,LKASGSL_VCTMCSID(R9) ; Store victim CSID and next lockid 
0 RSB 3; Return to caller 


70$: ; This exit unwinds the stack and exits deadlock detection. 

; If we sent a message then the original lock has been removed 

3; from the timeout queve. We want to exit deadlock detection rather 

3; than trying to search for another deadlock because we will be 

3 unable £9 get another timestamp. If we were unable to allocate a CDRP 


; or the wee yee in use then we leave the lock on the timeout queue 


OOD NA USE WWII SO OO NA UNE WIN OOD NAME WH OOO NOUNS = 
= 3 
o 
< 
> 
@ 


>] SPAR AA AAA A MINI & 
MIM ODIOOQOQOOOOOOOOOOOSO F NNN NN NN NNNOAPNUIM OO WOODS WUMVIOM OODOONSNMOaoaaw 


SPP PEQP DADA APD. PTT BB BE BE BBB BE INI AI I AI IPPON 


; so that we will retry this operation 1 second from now. 
5E SA 09 MOVL R10,SP 3 Reset stack 
00000000°GF 1 ° JMP G*LEKSDLCKEXIT > Return 
007 3 
007 : ; Local subroutine to store message data in either CDRP or internal 
‘6d : 3; message template 
007 § : Inputs: RO,R1 Timestamp expiration (if assigned locally) 
007 3 R Address of data area in CDRP or internal message bfr 
07 } : R Address of original LKB 
3 R8 Original EPID 
7 : Outputs: 
7 § 3 RO Victim C318 (not stored in data area pec euse 
3 CORPSL_VAL9 is not contiguous with CDRPS$L_VAL8.) 
7 eo 
55 OD 4 § 80S: PUSHL R5 
55 8 O'GF OD MOVL 6 CLuUse. CLUB Re : Get address of CLUB 
8 yt C5 f MOV CLUB W_MEMSEQ(RS),(R2)* ; Store menseq 
82 4E AG MOVZBW LKB$B_TSLT(R4),(R2)+ ; Store t nestanp Lifetime 
82 58 OD 8 MOVL R8,(R2)+ ; Store original EPID 


£% 
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MB an bOG LCKSSND_TIMESTAMP_RQST TSS 7 CHE SYSLOA. SRCJDSTROLCK.MAR; 1 . (3) v04 
30 AS ODD 7 MOVL KBSL_LKID(R4), (R2)+ : Store original locki 
8S 3 A> b0 3 re MOVL UBS LOCAL_CSID(R5),(R2)+ ; Store -CSiD of tags system 
D mMOva RO, (R2T+ : Stor tinests 
ae 74 MNEGL #1,(R2)+ i; Initialize v chia priority 
51 30 AQ OD 9 75 MOVL KBs LKID(R4),R1 : Get local lockid 
0 60a5 OD 9 id: MOVL LUB C_LOCAL CSID(RS),RO: and local (SID 
04 =O€ 98 7 BBC #LKBSV-MSTCPY,- ; Branch if not master copy 
08 2A Ad 9 f LKBSW_STATUS(R4) ,85$ 
51 4 a4 D A MOVL  LKBSLIREMLKID(R4S,R1 =; Get remote Lockid instead 
0 58a4 0 Ad MOVL  LKBSL~CSID(R4),RO : and remote CSID 
82 2} D A8 85$ MOVL R1,(R2)¢ 3; Store viesia lockid; return victim 
BED AB 3 POPL RS : CSID in R 
se" 
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-SBTTL GET_TIMESTAMP = Get a bitmap time stamp 


+ 
FUNCTIONAL DESCRIPTION: 


This routine returns a bitmap timestamp with a specified Lifetime. 
The eiasetens thyetime S oP hite seunt ee represents 
€ 


~ 
i=] 
ad 


; Bitmap is available. Compute new expiration times and clear bitmap. 


3 ; s encoded 
AF 3 the number of bits the ast [Seles enqutg be shi " 
AF 94 ; For exonole. if the basic Lifetime unit is 50 ms. (TSLT_UNITS) then 
AF 95 ; a specif + ytd (R4) of 2 would return a timestamp with 
v4 38 ; an expiration time 200 ms. from now. 
Ni 33 ; CALLING SEQUENCE: 
Ni p ; BSBW = GET_TIMESTAMP 
AF 3 : INPUT PARAMETERS: 
rr : ; RG Timestamp Lifetime (encoded as a shift count) 
AF : 
ry! 3; OUTPUT PARAMETERS: 
Bp Ar § : RO,R1 Quadword expiration time (success only) 
DOAF 10 ; RG Completion code: 0 = failure 
AF 73 1 = success 
wv \¢ 3; SIDE EFFECTS: 
DOAF 14: On success, bitmap is cleared, new expiration time is 
“ 1g 3 stored as both local and exact expiration time 
AF 317 * 
AF 18 GET_TIMESTAMP: 
AF 1 ; Determine if the previous esaoesene has expired yet. 
AF Y 3; Note that geraat ty. this test should be performed at the IPL 
AF 3; of the hardware clock interrupt (IPL$_HWCLK). However, we can 
AF § 3; tolerate the race condition here. The result would be to think 
AF 3; that the bitmap is in use when it really wasn't. If this occurs, 
rv! : ; we will simply try again later. 
2c AF § PUSHR #*M<R2,R3,R5> 
52 900000 "GF 1 MOVAQ G“LCK$GQ_BITMAP_EXP,R2 ; Get address of expiration time 
5 300 "GF 8 MOVAQ Peat ooe SYSTIME RO : Get address of system time 
04 A 4 A2 3F CMPL (R2),4(RO) : Compare low order time 
& BLSSU $ ; Bitmap is available 
g BGTRU ; Bitmap is in use 
60 Be § CMPL (R2), (RO) : Compare high order time 
Z BLEQU§ 20 ; Bitmap is available 
4 5 108: ; Bitmap is in use. Return failure. 
54 D $ CLRL R4 
2c F s+ #*M<R2,R3,R5> 
4 
4 
42 


DSTRDOLCK ISTRIB DEADLOCK DETECTION Kn snes 16- AX/VMS Macro v04-00 Pa 9 
yO4-006 Get t] IME sant - Get a bitmap time stamp g- -$ Pa} 984 ve 39; 13 USYSLOA. SREIDSTROLCK. MAR; 1 - (4) 
54 0007A120 8F 54 8 D2 43 ASH Ra GTS, T UNITS RO ; Compute tine A hig Lifetime 
0 DA 44 MOV rb) R : Get curren me 
C 4 r soot Ra RO 3; Compute cuntfes on time 
é D OOE 23 MOVa *(R2) : Store expiration time 
O08 A D E rh: mMOva RR (Re? : Store local expiration time 
7 3 EA 4 MOvVQ ea (SP) 3 Save timestamp for be to caller 
50 _00000000'GF B ED 9 MOVL att 5st PRCMAP,RO ; Get address of bitmap 
60 F8A0 00 : 0 f FG MOVCS R ),#0,-8(RO),(RO) : Clear it 
4 D FB § MOVL 3; Return success 
F BA FE POPR a AeRO, R1,R2,R3,R5> 
5 0 4 RSB 


5 a} 
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.SBTTL LCKSRCV_TIMESTAMP_ROST 


vO4~000° LcKsRC 


<2 
es 
—@ 


++ 
; FUNCTIONAL DESCRIPTION: 


This royt ine is cotieg by he received message dispatcher when 

we receive a request for a timestamp. If we can ass gn a timestamp 
then we send a message that starts the deadlock search. If we 
cannot assign a timestamp (because the previous one has not 

expired yet), then we send a message that will cause the original 
lock to be requeued to the timeout queue. 


CALLING SEQUENCE: 

: JSB LCKSRCV_TIMESTAMP_RQST (called by received message dispatcher) 
; INPUT PARAMETERS: 

; RE adres Sf egtage butter 

OUTPUT PARAMETERS: 

; None 

; SIDE EFFECTS: 

; RO - RS not preserved 


If a timestamp is assigned, the bitmap is cleared and the new 
expiration time is stored as both the local and exact expiration time. 


Lereney Taree RQST:: 


0388 30 SBW RCV_DLCK_MSG 
0000'¢t DS Tstt oar crser Ts_cSID Verif igning timest 
3; Ver we are assignin mestamps 
12 BNEQ 70$ = .o : irre! = ” 
; Get a timestamp 
54 OF A2 9A MOVZBL LKMSG$B_TSLT(R2) ,R4 ; Get timestamp Lifetime 
90 610 SBB GET TIMESTAMP 
05 54 58 BLBS Rage : Success 
02k BSBW at SND_REDO_SRCH ; Failure - redo deadlock search 
3 11 BRB $ 


20$: 3; Have a timestamp. Send a message that will initiate the deadlock 
3 search. Store all necessary fields in the CDRP. 


53 0 7 MOVa RO,R3 ; Move timestam 
95 3 BSBW L REM, LOC LONGCORP ; Allocate a CDRP 
0 BLBS RO, 30 ; Have one 
O3A SB yAIT_FOR_POOL 
2 RB 50 


a a ak a et at st st = = = 4 =) 2d > > bd os — 4» 9) 2 2s 9 2 4 bd 1) os 2 ts os ss os os ss 2 os ss a 


RNIN 2 MOD ODOOOCOCOOODODODOCOCDOCOCOCOCCOOCOCOCCOOCOOCOOOOOOOOCO 


COOOWOS PP Pb F POUMNIOCON OOF PO fF 9 8 8 


——=§ *OQOODOGOOO0O00 00000 OO O09 0069 69 69 69 69 69 09 09 INI NINN NIIP AAA AAAAAO 


ROOD NA NE WIN @§ OOO NAME WIN $$ 9 ODNA UE WN SO ODNOAUE WIN O ODN UNE WH" OOOO 


PPL LLL SEES 


O278'CF 9E 30$: MOVAB W*BLD_SRCHDLCK,- ; Store address of message build routine 


ba 


sls 


“1986 04:09:19 ESYSUOA.SaeSpstabceK.man:1 29 (3, ve 


MOVa ; Store nenseq. Zinestenp Lifetime, 
VAL 3 and origin nal PID 
MOVa rete ; Store original lockid and CSID 


mova CORPSL ) ; Store timestamp 
MOVa bees yr Y 2 3 ater? de dlock’ victim priority 


lockid 
mova CKMSGSE VE vcT 7 3 Sere dea lock victim CSID and 
EDRPSL VAL9 ; next lockid 


; Send the message 


MOVL LKMSGSL GniersibCne) . R3 ; Get CSID of original system 
BSBW SEND_DLCK_ 


; Deallocate the message buffer and return 


POPR #*M<R2,R3> 
BRW DEALL_DLCK_MSG 


OLE LLEOOOE 
>>> ruirr rr Y 


R 
Vv 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


Foy a a aaa eee 


NMMMVINOOIS POCO LS - MOOWOwW 789 Ww 


eat ee ee oe ee ee ee a ee ee ee) 


BUG_CHECK LOCKMGRERR, FATAL; This system is not issuing timestamps 


— 
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~SBTTL CHECK_TIMESTAMP = Check bitmap timestamp 


oleh 


aot 
x 
on 
nm 
mc 


+ 
FUNCTIONAL DESCRIPTION: 


rats routine is called wes an incoming =, georeh message 
arrives and needs to yse this system's b 
exp tracion timestamp in the nosscer is newer “ vaanee * than) 

han the timestamp for mre system : bitmap, then the bitmap 

s cleared and the newer timestamp is stored. If they are equal, 
Foes the bitmap can be used immediately. If the timestamp 

he message is of er than the one for the bitmap, then this 

indicates that the bitmap has been qreeseces by a@ newer request 
and therefore this ti tite earch is aborted for now, but 
retried later, most likely with a timestamp with a longer Lifetime. 


CALLING SEQUENCE: 
BSBW CHECK_TIMESTAMP 
INPUT PARAMETERS: 
Re Address of message buffer 
OUTPUT PARAMETERS: 
RO Completion code: 0 
R7 Address of bitmap 
SIDE EFFECTS: 
If the bitmap is cleared, then the local expiration time 


is reset. 
Ri is not preserved 


abort deadlock search 
use bitmap 


57 00000000 ' GF 
51 _ 00000000 ' GF 
20 A204 AI 


MAP, em 4 Get address of bitmap 
“BITMAP Get add dress of bitmap timestamp 
6$a ABITMAB. RexPs 4(R2) ; Compare high order times 
: Reuse bitm nee 

Bit tmap hes een preempted 
) ,LKMSGSO_BITMAP_EXP(A2) aS are low order times 

: as been preenered 

Cont rue using bitmap 


108: ; Bitmap may be used after it is yf Da Store new Sipestenes. 
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; The expiration timestamp is the one in the message. The loca 
; f nes amp is the current system time plus the maximum timestamp 
; etime. 


61 1¢ A2 7D mOVa EnCRe A et EXP(R2),(R1) ; Store new expiration timestamp 
éa 


3C 88 PUSHR #*M<R 
52 0000 000° F 70 MOVQ G*EXE ge gRee R2 Get this system's time 
5 OOF4 3 4 C9 ADOL #588 T_UNITS@MAX. TSLT>, rd; Add maximum timestamp Lifetime 
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DSTROLCK - DISTRIBUTED DEADLOCK DETECTION ay RES 16-S 4 00:35: AX/VMS Macro v04-00  ?#P 13 DSTI 
V 800 CHECR TIRES TAMP = Check bitmap page g- Ep 71382 §:58:%8 ESYSLOA. SRE DSTRDLCK.MAR; 1 a (6) V04- 
08 Al 3 3 1 494 MOVQ ng OCB : Store local expiration time 
67 FBRA7Z OO 67 C 01 232 MOVCS # eat) 0 =8(R7),(R7) : Clear it 
; BA 01 4 6 POPR #*A<R2,R3,R4,R5> 
50 B0 199 rp 208: MOVL #1,R0 
195 499 708 
50 D4 019D 239 40$: CLRL RO ; Bitmap was preempted 
05 O19F 501 RSB 


ADL 


‘Co 
“no 
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end deadlock search mit} 7 90: 33i78 SYSLOA.SRCJDSTROLCK.MAR; 1 ” (7) V04: 


- ~-SBTTL LCKSSND_SRCHDLCK = Send deadlock search message 
; FUNCTIONAL DESCRIPTION: 


vO4~000" LcKSSN 


ow 

Cont 
ow 
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om 
xm 
zm 


This routine sends a search for deadlock message when either 

a master copy lock is blocking another lock or a waitin 

gs is found that is mastered on another system. In effect, 
this message serves to ‘follow an edge’’ of the ‘‘wait-for’’ graph. 


CALLING SEQUENCE: 


BSBW LCKSSND_SRCHDLCK 
Note: This routine — not return to its caller if called 
without a timestamp assigned (R9=0). In this case, 
a@ message requesting a timestamp is sent and the stack 
is unwound and we exit the deadlock search. 
so we fail to allocate a CDRP, we also unwind the 
stack and exit the deadlock search. 


: INPUT PARAMETERS: 

: R6 Address of LKB 

3 R9 Address of Message buffer or 0 indicating none 
$ R10 Bottom of stack 


; IMPLICIT INPUTS: 


The region of stack bounded by R10 and SP contains a series 
of stack frames that describe that current ‘‘wait-for'’ cycle 
(see description below) 


OUTPUT PARAMETERS: 


RO ryt ae code: 
= exit normally 
-1 = exit due to failure to allocate a CDRP; stack 
has been unwound back to original caller. 
R9 Address of message buffer if timestamp assigned 


; SIDE EFFECTS: 
R1 not preserved 


LCKSSND_SRCHDLCK:: 
PUSHR #*M<R2,R3,R4,R5,R6> ; Can't change this without also 
3 me value of LOCKFRAME and 

3; deadlock resolution code 


007C 8F 8B 


; Determine if a timestamp has been assigned. R9 = 0 indicates 
3 none was assigned. R9 <> 0 indicates it points 
3; to a message buffer and therefore, a timestamp has been assigned. 


>>>r>r rrr rrrrrrrr rrr rrrrrrr rrr rrrrrrrr rrr rrr rrrrrr rr rr rrryr 


dwo-r FP HRPR PP ROOOOOOOOOOOOOOOO OOOO OOOO OOOO OOOO OOO OO OOOO OOOO 


59 «5 TSTL R9 : Is there a timestamp assigned? 
93 {5 BNEQ 10$ ; Yes 
FE 3 BSBW LCKSSND_TIMESTAMP_RQST ; No, get one (may not return here) 


ee ee ee ee em ed dd ed ed dd 8 dd dd 8 td dd dd td 
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10$: 3; Allocate a CORP 
BSBW Dh peers 


81 


vO4~000" UcKss 


om 
zac 


$ peve ong ‘ a 
- move acgaress oO es 
walt FOR_POOL . message buffer 


SUBL3 Ryo. SP 3 Unwind stack 
MNEGL #1 RO 3; Set completion code 
RSB ; Return to original caller 


w 
oF 
ee 


The stack consists of a series of Te frames, one for each lock 
involved in the current wols~ for cycle. Each stack frame consists 
of the 5 saved registers (R2 - R6) and a return address. Note 

that in each stack frame the saved R6 points to the lock and the 
saved R4 points to the respective PCB lock queue (if the lock 

is not master copy? Only the first and Last frames should contain 
master copy locks. 

The stack frames are bounded by R10 and the current SP. 

The following diagram shows the stack with three frames. 


a ereeee- Saved R5 
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R10 => 


e will now search the frames looking for the process with 
the past Sees deadlock priority. When found, the respective 
deadlo error ity wilt be compared with that in the ut noge ag . 
{he ob Biec ive is to find the best candidate for a dead{ock m 
if a deadlock is later found. This candidate will be ne Luded in the 
message we send to the other system. Note that a deadlock priorit ty 
of zero causes an immed ian exit from the loop. Register usage will be: 


e? Current deadlock priority 

R Current lock frame pointer 

R Minimum P ceecheck ort ority. so far 

R Best victim frame, 

R Address of PCB feck B2 (current frame) 


ee ed a ed od = 8 8 8 8 = 8 ss | ©) — 2 2 2 = + 1 ts 1 
WDOWWWWWVOWVIVIVIVOIVOVIWVIVIOVVIVIVTWVOVIVIVIVIVVIVIVIWVIOWVVIVIVIVOVOVOOVOWVIVIVIWVTWVIOIOOWVIOOWOO>Yr>>>y 
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DSTROLCK = DISTRIBUTED DEADLOCK DETECTION AND RES 16-SEP-1984 . 9:35: AX/VMS Macro V04-00 p 1 DST 
yO4-006 LCKSEND_SRCHDLCK > Send deadlock soorchy SoSepe1ond uciOelto LeNST aS Baer e VOR OO aans1 ame 1S, v04 
1BF 17; Re Address of CDRP 
1BF 18; 2 Address of message buffer 
1BF : R10 Bottom of stack (start search here) 
ie ; SP Top of stack (end search here) 
1BF § : Note that the following code makes a number of assumptions 
1BF 3 regarding the order of registers saved on the stack and their 
Ht é ¢ ; contents. 
2409 OD 1BF TSTL KMSGSL_VCTMPRI(R9) ; Don't bother searching if the priorit 
62 3 \te ; : BEQL bos 7 : in the message is sere . 
51 SA 18 C3 Q1C4 § SUBL3 PLOCEFRAME .R10.R1 ; Initialize current frame pointer 
23 3 DO 01C8 ? 0 OVL R1,R : Initialize ‘‘best’’ frame pointer 
1 cf 1¢B 1 MNEGL R ; Initialize ‘‘best’’ deadlock priority 
50° 10 A1 00 O1C 6 : 208 MOVL  16(R1),RO : Get LKB address 
04 #€1 O1D BBC #LKBSV_MSTCPY,- ; Branch if not master copy 
06 3A AO 104 634 LKBSW_STATUS (RO) ,25$ 
50 24 Ad 00 107 6 5 MOVL 7 yan oe : Get deadlock priority from master copy 
54 08 Al DO ODD 6 § 25$ MOVL (R1),R4 ; Get pointer to PCB lock queue 
50 08 A4 it 1€1 638 MOVL PCBSL_DLCKPRI-PCBSL_LOCKOFL (R4 RO ; Get current deadlock pri. 
iF 1 168 639 28$ BEQL 35$ ; Branch if zero = have best victim 
52 5 Di O1E 279 CMPL Be R2 :; Compare current priority with 
03 1E O1EA 641 BGEQU 30$ > previous minimum. 
52 0 7D O1EC o4§ mova RO,R2 ; This frame becomes ‘'best so far’ 
51 18 C2. O1EF 7 30$: SUBL #LOCKFRAME,R1 3 Move to next frame 
=~ o. CUS re 44 CMPL R1,SP ; Reached top of stack yet? 
07 Ht 163 645 BGEQU 20$ : No, repeat for next frame 
52 35 7D + gt? 35$: MOVa RO,R2 : Move priority and frame pointer 
1FC $49 40$: ; Compare lowest deadlock priority so far (R2) with that in the 
1FC ©6550 ; input message and select the lower. R3 contains address of ‘’best’’ 
4 $2) 3; frame. 
24A9 52 D1 OF $38 CMPL Be LKMSGSL_VCTMPRI(R9) ; Compare priorities 
24 COA 8 $28 BGTRU 50$ ; The one in the message was lower 
628 ; The one on the stack was lower. R3 points to relevant frame. 
51 10A3 00 638 MOVL 16(R3),R1 ; Get address of LKB 
04 «1 5 BBC oLKe V_MSTCPY,- ; Branch if not master copy 
OA 2A Al 6 LKBSW_STATUS(R1) 45 
53 54 a1 OD MOVL LKBSL-REMLKID(R15,R : Get remote lockid 
54 8 9 F § boxe EEBSLCSIB CAT) AA 3; and CSID 
53 ; Al oD 1 664 45$: MOVL LKBSL_LKID(R1) ,R3 ; Get lockid 
50 00000000'GF oD 1 5 MOV G*CLUSGL CLUB, RO : Get address of CLUB 
54 6 a D $ MOVL chue L LOCAL_€SID(RO).R4; Get local CSID 
0 1 BRB 
50$: ; The one in the message was lower. 
i se Ao = 7D 7 MOVa LKMSGSL_VCTMPRI(R9) ,R2 ; Get victim priority and lockid 
4 2C ad 00 A 676 MOVL LKMSGSL“VCTMCSID(R9S,R4 ; and CSID 
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ED DEADLOCK DETECTION a) RES 1 EP-1984 735: AX/VMS Macro V04-00 P 17 DST 
HDLCK = Send deadlock search g- ets 90: 38i%9 SYSLOA. sae REID DSTROLCK.MAR;1 _— (7) vO4 
73 60$: ; Store info. in CDRP 
mova »CORPS$L_VAL7(R5) 3; Store victim priorit Locki 
8 MOVL ORPEE VATS CRS) i and Csi ee 
of MOVL i ti REMCK Big6) - 3 and next lockid to continue search 
7 owen C_VAL10(R5) 
? MOVC EK KMSG$W_MEMSEQ(R9),-; and other fields 
g ans nb L_VAL1TR5) 
4 MOVAB BBL SRCHDLCK ; Store address of message build ti 
5 Sa. “MSGBLD (RS) portance tens ining 
; Send the message 
BBC tah STCPY ; Branch if not mast 
0 W_STATUS( (k6) 70$ Minton tht: 
91 MOVL LKBSL eSID TRO) ),R3 : Get CSID 
38 BRB 5 
93 70$: MOVL LKBSL_RSB(R6) ,RO ; Get RSB address 
94 MOVL  RSBSL~CSID(ROS ,R3 ; Get CSID 
95 75$: BSBW SEND Buck M36 
38 POPR #*M<R2,R35,R4,R5,R6> 
69 CLRL 0 3; Set completion code 
639 RSB 
f y 3 : Message build routine 
7 § : Inputs: Re Address of message buffer 
703 ; R Address of CDRP 
oe 
7 é BLD_REDO_SRCH: 
7 Rovw #LKMSGSK REDO_SRCH@8- Store facility and function codes 
7 8 'CLSMSGSR_FAC~ ~Ptk cesmscéa FA FACILITY(R2) 
4 BRB BLD _COMMO MON 
19 BLD_ shat! 1 ge RQST: 
1 #LKNSGSK TSRQSTa8- ore facility and function codes 
1 MSGSR_FAC_LCK,C cismscéa FAC! ILITY(R2) 
oe BRB SS tORRO MON 
1 BLD_SRCHOLCK: 
1 MOV #LKMSGSK SRCHDLCK@8- e facility and function codes 
1 'CLSMSGSR_FAC_LCK K CL SMSGSB FRC ILITY«R2) 
719 BLD_COMMON: 
7 PUSHR #*M<R2,R Re »R4,R5> 
7 MOVCS #32,CDRPSL_VAL1(R5).- ; Move data from CDRP to message buffer 
, 2 tins Wd nen EG(R2) 
POPR RS> 
f 4 mova CORPS mR ay (R5),- 
f 3 LKMSGSC_VCTMCSIB(R 
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-SBTTL LCKSRCV_SRCHDLCK = Receive search deadlock message 


| 


lbs 


vo 


p++ 
3; FUNCTIONAL DESCRIPTION: 
This routine is called when we receive a deadlock eqerch message 
for either a lock mastered on this system or a waiting lock owned 
by this system. We continue searching using this lock as our 
starting point. 
CALLING SEQUENCE: 
BSBW LCKSRCV_SRCHDLCK (called from input message dispatcher) 
INPUT PARAMETERS: 


Re Address of message buffer 
a Address of CSB 


OUTPUT PARAMETERS: 
None 
SIDE EFFECTS: 


Other deadlock search messages may be sent to other systems. 
RO and Ri are not preserved. 


CKSRCV_SRCHDLCK:: 
BSBW RCV Bice MSG 
PUSHR #*MZR2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 
MOVL R2,R9 ; Move address of input message 


; Get lockid of lock to start search with. Convert to LKB address. 
MOVL LKMSGSL_NEXTLKID(R2),R4 ; Get lockid 


BSBW LeKSeyT1D_T0_LKB ; Convert to LKB address 
BLBC RO,10$ ; No LKB found; ignore message 


; Check bitmap expiration timestamp before we start using bitmap 


BSBW coe ce TIMESTAMP ; Returns address of bitmap in R7 
BLBS RO,208 3 We can use bitmap 


3; Bitmap has been preeapted by a later deadlock search. 

4 ; Double the ynap Lifetime requested and send back a message to 
f ; redo the original deadlock search. 
4 


C009 09 CODD OO NFFPLNY MO DWMODOU—-MMMMMMMMMMMMMmMMmMmMmMmmmmmmmmmmmmem» 


INCB LKMSG$B_TSLT(R2) ; This will double the Lifetime 
BSBW Lee SND_REDO_SRCH 
10$: BRW $ 


208: ; Set up registers 


MOVL LERSORL ORIGEPIDCRE) RE ; Original EPID 
MOVL SP,R ; Current stack position 


je tertertertent FI IIA RIAA AA AA Goo e se Nee 6 ss 
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DSTROLCK - DISTRIBUTED FADLOCK ETECTION ay RES 16S 4 00:35: AX/VMS Macro V04-00 P 19 
youn 0bO LCKSRCV RCHDL K = Receive search deadlo §- Ep =}382 CHEE YOYSLOA. Ske DSTRDLCK.MAR;1 ~e (8) 
= ee : C1 ADOL3 . ttt tte NTSTKLA AI 3; Compute stack Limit 
cf 0 Rou tkeSt PL in 
52 th WL L_PID 4g) R2 ¢ fet pro qss inden , 4 
master copy or system owne 
51 00900009" SF p ROL G2 SCuSGL _PCBVEC RI : Convert to PCB address. _ 
25$: ; The way in which “g resume the deadlock search depends on 
3; whether this lock is a master (or local) or process copy. 
50 32 A D MOVL Mitt ted SB(R6),RO 3; Get RSB address 
4 9 iit RSBSLcs CSID(ROS : ‘ lock mastered here? 
: Yes 
; This is a process copy lock. For each lock this procress 


; has in either CONVERT or WAITING state, see who is blocking 
3; those locks. 


; Move LKB address 


OOONNWAHMMMMMMMMMMMOGCIVTOTCVVIFFFCWD 1 


8 Dd 
$ C 
a; 
§ 58S 
D 
| 
| 
1 Bos 
1 808 
55 D 1 4 MOVL R6,R5 3 
D 4 5 TSTL R : If process index is 0 then lock is 
1 g § BEQL 3; system owned 
53 67 a BBSS R2,(R7),70$ ; Br. if we've already done this process 
54 0104 C4 DE ¢ 08 MOVAL PCBSL_LOCKQFL(R4).R4 =: Point to Lock queue header 
04 A4 OD MOVL 4(R4),R6 3; Get last lock in List 
54 28 01 ; 19 30$ CMPL 3; Reached end of List? 
4 13 1 BEQL 7 3 Yes 
56 CO 46 bf A \¢ MOVAL oh XBOL CUNOEL (RE) .RG ; Point to start of LKB 
56 65 D 1 MPL R5,R6 : 48 ag Xi the one we have in R5? 
2 13 14 BEQL 35 on to next one 
15 DISPATCH LKBSB_STATE(R6), ivpesé, PREF IX=LKBSK. - 
i$ <CONVERT, 32$>,- 
18 <WAITING, $>- 
38 11 D 0 BRB $ ; Exit for all other states 
9 €0 F 1 328 BBS #LCKSV_NODLCKWT,- ; Branch if this lock should not be 
1A A6 11 § KBSW_FLAGS(R6) ,35$ ; considered as waiting for A. +5 locks 
50 A6 OD 14 MOVL  LKBSL“RSB(R6) ,RO : Get RSB for this loc 
ao 18 4 sit RSBSL-CS1D(RO} : Is it managed elsewhere? 
000001A0 ' GF \9 1 § JSB gy CESSES SACL CR : Yes, send a message to keep looking 
06 1 ; BRS 3; Continue on this PCB 
eneees | 1 3$: JSB G“LCKSSRCH_RESDLCK ; No, recursively search 
0 € 8 4$: BLBS R : If LBS, quit search 
5644 Ab p 5$:  MOVL | KBSL_OWNOBL (RG) RE : Get prev ous lock 
C 1 BRB 0 3; Repeat 
4 $ 60$: ; This lock is a local or master copy. Just determine who is blocking 
4 4 ; this lock after verifying that the lock is not granted. 
4 § ASSUME LKBSK_GRANTED GT 0 
36 ag % t fate KBSB_STATE(R6) : Ignore message if lock is granted 
00000000'°GF 16 ; i JSB G“*LCKSSRCH_RESDLCK ; Search for deadlock 
F 41 708: ; Deallocate the original message buffer and exit 
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Vv 800 CCKSACV_ SRCADLER - Receive search deadlo ety §0:59;79 SYSLOA.SRCIJDSTROLCK.MAR; 1 ’ 8) v0 
F 4 
FFC 8F A 3 bc§ POPR #*M<R2,R3,R4,R5,R6,R7,RB,RI,R1I0,R11> 
. 5185 e ait 44 BRW DEALL_OLCK_MSG ; Deallocate message buffer and return 
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~SBTTL LCKSSND_OLCKFND = Send deadlock found message 


vO4~000" LcKSSND. 
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p++ 
; FUNCTIONAL DESCRIPTION: 


This seutine s sends a message informing another system that a 
specified lock has been chosen as a deadlock vic . The Lock 
on the Goat ination § system is either a local copy or a process 
because it is on that system the the dequeue? cancel function 
must be issued. 


; CALLING SEQUENCE: 
JSB LCKSSND_DLCKFND 
LPL must be a IPL$_SCS 
Note: if ue don't have an input message and we are unable 
© allocate a CDRP, then we will unwind the stack 
LF exit from deadlock detection. 
: INPUT PARAMETERS: 


: Re Lock id. of victim lock 
L 


COOCCOSOCCOOCOOOOOOOOOOOOOoOO 
PAWN AAAI AAA AAAI A AAAI 
PEPPERELL PPP EPP PEE ESE 


SSS SSS SS NS SS SSS SS STS 


CSID of destination system 
9 Address of input message or 0 indicating no message 
R10 Bottom of stack 
; OUTPUT PARAMETERS: 


RO Completion code of -1 if we unwind the stack and exit 
from deadlock searching. 


; SIDE EFFECTS: 
RO - R5 not preserved 


CKSSND_DLCKFND:: 


0164 
2D 50 


SDPDPAPAADA AAA AA AAA AAA AA AAA AA AA AA AA AAA AAA AAO 


mu 
wo 


BSBW “Wh a caanaaaaal 3: Alloc. C 
BLBC : Unable "ahhaaate one 


; Store necessary information to build message in og 


C 
C 2 
C 3 The ori 9 nal Locte, ene CSID are stored only if w 
4C 3 an input message. This will 7 use oo by the Pia M,... system 
4C 3 to redo a deadlock search. | don't have an rapt message 
rt: ; then this system will automatically redo the searc 
4 MOVL G*CLUSGL_ CLUB Ro 
MOVW EDRPSL- RERSEQ(R ),- ; Store memseq. 
9 TSTL : Is there an input message? 
8 BEQL 3 - 
MOVa LEASES. Te aaa 3 store afr iginal lockid and 
CORP bv (R5) : ($i6 3 DRP 
MOVB LKRSee8 Heit: 3; and 8B. dl Lifetime 
CDRPSL NA +2(R55 
0 11 BRB 


50 O0000000'GF oD 
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Vv 806 CCKESND ND_DLCKFND = Send deadlock found me 5- Ep- 1984 88: 38: 13 SYSLOA. SREIDSTROL CK.MAR;1 . 2) 
344A C 9 3 10$: CLRQ CORPSL_VAL3(R5) 3 Indicat original messa 
3¢ AS 83 D 4 i: MOVQ CORP tenn VAL5(R5) 3; Store v ctin toeka and tstp 
BA'AF 9E 5 MOVAB B61 ND ; Store address of message build routine 
af a3 3 CORPSE eee tas) 
10 3 BSBW SEND_OCCK_MSG ; Send the message 
4 RSB 
52 9 8 7 80$ MOVL R9,R2 ; Move address of message 
7C 1 BEQL 90$ 3; No message 
014A ; fF 19 BSBW WAIT_FOR_POOL 
! RSB 
0 01 cf ; is 90$ MNEG #1,R0 ; Set sareset len status 
ADOL #4,R10,SP 3 Unwind s 
5E A 04 ! 3 1 aoe 4,R10 i 
A 319 
. 2 ? ; Action routine to build deadlock found message. Inputs are: 
A 9 § : Re Address of message buffer 
A 923; R Address of CDRP 
A 924; Te ee MEMS Q and a bmg Lifetime 
A 2 a CORPS$L_VAL Original lockid (or 0) 
A $ ; CORPSL-VAL4 Original CSD Co r 0) 
38A 927; CORPS$L_VAL5 Lockid of v sett m lock 
. 2 3 3 CDRPSL_VAL6 CSID of victim lock 
A 930° 
A 931 BLD_DLCKFND: 
A 9 § oo ay UME ct sees a eee EQ oe eee. FACILITY 
08 A2 0802 8F- B0 A 9 MOVW PLKRS GSE DLCKFND@8- e function and facility codes 
0 934 CLSMSG S68K FAC UCR CLSMSGSB™ FACILITY Y(R2) 
2c ASO 9 935 MOVL CDRPSL V : Store MEMSEQ and timestamp Lifetime 
O¢ A 93 9 6 LKMSG$@ Aenseacha) 
4A 7D 9 9 MOVa CORPSL_QVAL3(R5),- ; Store original lockid and CSID 
14 Ag 98 938 LKMSGSC OR GLKI6(R2) 
3C A 7D 9A 38939 mMOvVa COR Ps oo L5(R5),- 3 Store victim lockid and CSID 
28 A2 90 940 LKMSGSC NVCTMLKIB(R2) 
05 O39F 941 RSA 
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A 4 ~SBTTL LCKSRCV_DLCKFND = Receive deadlock found message 
AD 945 s+ 
A 46 ; FUNCTIONAL DESCRIPTION: 
A rh: : This routine is 99 led when we receive a deadlock found message. 
A 3 The message specifies a particular lock chosen to be, ® deadlock 
“ ; The lock must be either a local or process copy on this system. 
A ; CALLING SEQUENCE: 
A ; : : JSB LCKSRCV_DLCKFND (called from received message dispatcher) 
i 32 ; IPL must be at IPL$_SCS 
A $37 : INPUT PARAMETERS: 
A 939 ; Re Address of message buffer 
$81 ; R Address of CSB 
AQ 96¢ : OUTPUT PARAMETERS: 
a 
AQ 966 : SIDE EFFECTS: 
A 968 : RO - R5 not preserved 
AO 970° 
AO 971 LCKSRCV_DLCKFND:: 
poe? 30 A af§ BSBW RCV pce MSG 
pace F & 97 PUSHR #*M2R2,R35,R6,R7,R8,R9> 
9 52 4 A? = 974 MOVL R2,R9 ; Move address of message 
52 4 Ag D AA 975 MOVQ LKMSGSL_VCTMLKID(R9),.R2 ; Get victim lockid and CSID 
00000000'GF 16 ag 44 JSB G*LCKSBREAK_DEADLOCK ; Cancel the lock request 
O3CC 8F RA 384 978 POPR #*°M<R2,R3,R6,R7,R8B,R9> 
00E4 1 0388 979 BRW DEALL_OLCK_MSG ; Deallocate message buffer and return 
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-SBTTL LCKSSND_REDO_SRCH = Send a redo deadlock search message 
3+¢ 
¢ ; FUNCTIONAL DESCRIPTION: 
gi: : This routine is called when it is necessary to redo a deadlock 
; search. It sends a message to the system mastering the lock 
8 : unless that systen is this system. 
30 ; CALLING SEQUENCE: 
3 ; BSBW LCKSSND_REDO_SRCH 
34 : INPUT PARAMETERS: 
936 R2 Address of message buffer 
i ; IMPLICIT INPUTS: 
1000 : LKMSG$B_TSLT(R2) Timestamp Lifetime 
193) : LKMSG$L_OR migecioiass Lockid of lock to repeat patterns search 
1 gi : LKMSGS$L_ORIGCSID(R2) CSID of system pestering above loc 
1005 ; (0 indicates original CSID and Lock id 
1 be : are unknown, but it is not necess ary 
! B2 3 to send the redo message - see LCKSSND_DLCKFND) 
Hi : OUTPUT PARAMETERS: 
1008 5 : None 
1 : SIDE EFFECTS: 
! 18 : RO - R5 are not preserved 
1015 ° 
1 1g LCKSSND -REDO SRCH:: 
! 1 : Determine if the lock is mastered on this system 
53 18 A 0 1 i8 MOVL LKMSGSL_ORIGCSID(R2),R3 ; Get original CSID 
1 1 F 1020 BEQL 10$ ; Not present 
50 09900200" et dO C1 1021 MOVL G*CLUSGL_CLUB,RO : Get address of -CLU 
60 AO 3. CoD cs 1 3 CMPL R3,CLUBSC_LOCAL_ CSID(RO): Is it the CSID se Onis system? 
04 12 eC ; BNEQ 208 ; No 
i 1 5 3; Lock is mastered on *his system 
0027 30 cf 1 7 BSBW REDO_SRCH ; Requeue it to the timeout queue 
05 4 ' 10$: RSB 
4 i 208: 3; Lock is mastered elsewhere 
00D 3 De 1 § BSBW ete LOC_LONGCDRP 3; Allocate CDRP 
14 5 E BB BLBC 3; Unable to allocate 
2 . dO 3S ' : MOVL Heeb erga - 3; Store MEMSEQ and tinestane Lifetime 
4A dO 43 1 § MOVL RSGAC. Of ORIGLKID(R2),- ; Store lockid 
34 A —0 1 EDRP L_VAL35(R5) 
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1 3 MOVAB W*BLD_REDO_SRCH ; Store address of message build routine 

1 CDRPSC_MSGBLD(RS) 

| #9 BsBu SOND DCCK_MSG 3 Send the message 

104 

1 rk 80$: BSBW WAIT_FOR_POOL 

1044 RSB 
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~SBTTL LCKSRCV_REDO_SRCH 


te 
; FUNCTIONAL DESCRIPTION: 


This routine is called when we receive a message to redo a deadlock 
search for a lock mastered on this system. 


; CALLING SEQUENCE: 
BSBW LCKSRCV_REDO_SRCH (called from input message dispatcher) 
INPUT PARAMETERS: 


Re Address of message buffer 
R Address of CSB 


OUTPUT PARAMETERS: 
None 
; SIDE EFFECTS: 
RO, R1 and R4 not preserved 
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LCKSRCV_REDO_SRCH:: 
BSBW RCV_DLCK_MSG 

BSBB REDO _SRCA 3 Do the work 

BRW DEALC_DLCK_MSG ; Deallocate message buffer and return 
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+e 
FUNCTIONAL DESCRIPTION: 


This routine is called to requeve a lock back on the timeout 
queue when a deadlock search must be repeated. Deadlock searches 
are repeated for reasons such as: 


Oo One deadlock has already been found for this lock 

o A timestamp could not be issue 

o The deadlock search was incomplete for some reason 
(e.g. unable to allocate pool or our timestamp was 
superseded) 


CALLING SEQUENCE: 
BSBW REDO_SRCH 


é INPUT PARAMETERS: 
R2 Address of message buffer 
: IMPLICIT INPUTS: 
LKMSG$B_TSLT(R2) Timestamp Lifetime 
LKMSGSL_ORIGLKID(R2) Lockid of lock to repeat deadlock search 


: None 
> SIDE EFFECTS: 
: RO, R1 and R4 not preserved 
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56 DD 5 SHL R6 3; Save R6 
54 14 Ag 4 § MOVL LKMSGSL_ORIGLKID(R2),R4 ; Get lockid 
903 BSBW LCKSCVT_ID_TO_LKB ; Convert to LKB address 
48 50 € 3 BLBC RO,60$ § LKB 
50 30 a6 OD MOVL LKB$L_RSB(R6) ,RO > Get RSB address 
AOD 9 TSTL RSBSL-CSID(ROS ; Verify it's mastered here 
4 1 BNEQ 90$ 3; Error! 
5 3; Only requeve lock if it's in either CONVERT or WAITING state 
: 3 and it’s not already queued. 
§ DISPATCH LKBSB_STATE(R6), TYPE=B,,PREF IX=LKBSK_,- 
<couveel-g $>,- 
<UALTING, $>,- 
7 |. i 1 BRB 60$ ; Ignore for other states 
1 : 30$: ; If we haven't used up all the retries (MAX_TSLT) then the lock 
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is requeved at the front of the timeout queve. If we have 
ysed yp all retries, then the Cosy coum s cleared, and the 


meout queue with another 


wait time applied. The result is to retry a deadlock search for 


: lo queued at the back of the 

3 this lock later. 

BBSS #LKBSV TIMOUTQ,= ; 
LKBS$W_STATUS(R4),60$ =: 

MOVL  G*EXESGL_ABSTIM,- : 
LKB$L_DUETIME (R6) 

MOVAL G*LCKSGL_TIMOUTQ,RO : 

MOVB LES GSB TSLT(R2) »= ; 
LKBS$B_TSLT(R6) 

CMPB ss LKBS$B“TSLT(R6),- 
#MAX_TSLT 


BGTR “ 
INSQUE 1 tua aaah ata 
BRB 60 


CLRB LKBSB_TSLT(R6) 

ADDL G*LCKSGL_WAITTIME,- ; 
LKBSL_DUETIME (R6) 

INSQUE LKBSL_ASTQFL(R6),a4(RO) ; 

POPL R6 

RSB 


BUG_CHECK LOCKMGRERR , FATAL; 


Branch if already on the queue; 
set bit otherwise 
Store immediate timeout time 


Get address of timeout queue 
Store timestamp Lifetime 


Have we exceeded the maximum 
maser of retries? 
5 


e 
No, insert at the head of the queue 


; Reset retry «sunt 
; Add another wait time to due time 


Insert at the tail of the queue 


Not mastered here 
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~-SBTTL LCKSCVT_ID_TO_LKB = Convert a lockid to LKB address 


FUNCTIONAL DESCRIPTION: 
The* vert} etefon Sheek ot comparing remote: (eckide onot 
performed as both lockids are not available. 
CALLING SEQUENCE: 
BSBW LCKSCVT_ID_TO_LKB 
INPUT PARAMETERS: 
R4 Lockid 
OUTPUT PARAMETERS: 


RO Completion code (0 = failure; 1 = success) 
R6 Address of LKB (success only) 


SIDE EFFECTS: 
None 


| 

4 

; 

8 

Q 

91 LCKSCVT_ID_TO_LKB:: 

38 MOVZWC  R4,R6 Put lockid index in R6 
9 CMPL Is the lock id too big? 
94 Y 

32 
$3 
35 
0 
: 
4 


es 
Get address of lockid table 
Get LKB address 

Unallocated id 

Check sequence number 

Not vali 


R6,G*LCKSGL_MAXID 


MOVL G* CeS6L 1D TOL RO 
MOVL (RO) CR6J,R6 


CHPL RG GL KBSL_LKID(R6) 
MOVL #1,R0 


56 3 
00000000 ' GF 


58 00000000 'GF 
6 o0ne 
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~SBTTL SEND_DLCK_MSG = Send any deadlock detection message 


DSTROLCK =) 
Vv 800 SEN 


++ 
FUNCTIONAL DESCRIPTION: 
This routine is called to send any message when the caller 
wants control returned to it as opposed to it's caller. 
After the message has been acknowledged, the CDRP is deallocated. 
Note that all errors are ignored. 
CALLING SEQUENCE: 
BSBW SEND_DLCK_MSG 
INPUT PARAMETERS: 


3 CSID of destination system 
Ff Address of CDRP 


; OUTPUT PARAMETERS: 


Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Se Ge Ge Se Ge 
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7A : None 
7A $ 
gh 3; SIDE EFFECTS: 
A : RO - R2 and R4 are destroyed. 
7A ‘ 
7A SEND_DLCK_MSG: 
st aaa * 47A IF NE CAS_MEASURE 
00000000 ' GF D fh ek G*PASSGL_DLCKMSGS_OUT 
4 a 
FB7D" 3 4 BSBW CNXSSEND_MSG 
50 55 OD 4 MOVL R5,R0 ; Address of CDRP 
00000000'GF 17 0486 JMP G*EXESDEANONPAGED : Deallocate it and return 
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-SBTTL RCV_DLCK_MSG = Receive a deadlock message 


+4 
FUNCTIONAL DESCRIPTION 
This routine is cat ted whenever we receive a deadlock message. 
ts purpose is to verify that the internal message buffer 
s available (i.e. not in use waiting for pool). If it is 
in use, then we reject this message and break the connection. 
CALLING SEQUENCE: 
BSBW RCV_DLCK_MSG 
NOTE: If we bréak the connection, then we return to our caller's 
caller, usually, the input message dispatcher. 
INPUT PARAMETERS: 


Re Address of pessage buffer 
R Address of CSB 


OUTPUT PARAMETERS: 
None 
SIDE EFFECTS: 


None if we return to our caller. 
The message buffer is deallocated if we break the connection. 


ao a ns SS SS 4) — bn ss a a ts a 2 et a a a tt tt om 
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CV_DLCK_MSG: 
0000°¢¢ TSTL W*LKMSG_FKB : Is fork block in use? 
7 BNEQ 10$ ; Yes 
000000 -IF NE CAS_MEASURE 
00000000 ' GF INCL GaPASSGre _DLCKMSGS_IN 
ENDC 
RSB 
5E 04 , 10$: ADDL #4,SP : caller's return address off stack 
FB61" 31 BRW CNXSRCV_REJECT ; Reject message 
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i ~SBTTL DEALL_DLCK_MSG = Deallocate deadlock message buffer 
" FUNCTIONAL DESCRIPTION: 
3 This routine is called eallocate received deadlock message 
4 , buffers. However, it d st nguishes between real message buffers 
ae: 3 and our internal buffer which is not deallocated. 
96 : CALLING SEQUENCE: 
BSBW  DEALL_DLCK_MSG 
INPUT PARAMETERS: 
gi : Re Address of message buffer 
7 : R Aduress of CSB 
5 j OUTPUT PARAMETERS: 
3 None 
09 i SIDE EFFECTS: 
i. ; RO = R2 destroyed 
1 s™ 
14 DEALL_DLCK_MSG: 
15 MOVAB W*LKMSG_BFR,RO ; Get address of internal buffer 
16 CRPL 68 R2 ; Is it our internal message buffer? 
; Yes 
\8 BSBW CNXSDEALL_MSG_BUF_CSB ; No, deallocate real message buffer 
19 10$: RSB 
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-SBTTL LCKSALLOC_LONGCDRP = Allocate a long CDRP 


> 4 


FUNCTIONAL DESCRIPTION: 
This routine is used to allocate a longer gone than is normally 
used for connection purposes. The reason is because deadlock 
pesseges have more context than can fit into a regular sized 


CALLING SéQWENCE: 
BSBW  LCKSALLOC_LONGCDRP 
INPUT PARAMETERS: 
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} 

1 None 

! i OUTPUT PARAMETERS: 

1341 RO Completion code 

1 5 R Address of CDRP 

1 rt} COMPLETION CODES: 

1 rt SS$_NORMAL CDRP allocated 

! r SS$_INSFEM Insufficient memory 

} a3 SIDE EFFECTS: 

! ; RO and R1 not preserved. 

1 

1354 LCKSALLOC “ge 

1355 POSHL R2 

1 § MOVIL #CORPSK_CM_LONG_LENGTH, R1; Size of CDRP 
1 JSB eek SALONONPAGED ; ocate pool 
1 8 BLBC 80S : Insufficient nqnery 
135 MOVL *R 3 Move address of CDRP 
1360 MOVW 4 *cD tytn _yeaen 3; Store size 
1361 BSBW CNXSIN 3; Initialize CDRP 
18 = 
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rh ] f -SBTTL WAIT _FOR_POOL = Wait for pool 
4(B 1 p++ 
rth 1 : FUNCTIONAL DESCRIPTION: 
4(B 1 : This routine copies an input message into the internal 
4¢B 1 3 message buffer and does a FORK_WAIT. Upon resumption, 
4CB 1372; we simulate receiving the same mesetge again. f another 
4(CB 1375 ; input message is received while the fork block is queued, 
4CB 1 fe : then we reject the message and break the connection (see 
4¢cB 05 i RCV_DLCK_MSG). 
4c 7 ; CALLING SEQUENCE: 
4cB 1 aS ; BSB WAIT_FOR_POOL 
4CB 1380; NOTE: If no input seasege is specified, then we unwind the 
rh } 1 : stack and return to LCKSDLCKEXIT. 
4cB $ ; INPUT PARAMETERS: 
4CB 1385 : R2 Address of input message (or 0 indicating no input ) 
ice ! $ : R10 Address of stack peeitten to unwind to 9 R2=0 ae spiecroaty 
4¢cB 8 : OUTPUT PARAMETERS: 
aCB 1390 = 
4cB 36 : SIDE EFFECTS: 
4CB 1394 ; RO and R1 not preserved. 
4CB 1395 ; A fork block is queued that when resumed will call the input 
4CB 1 38 3 message dispatcher. 
tt 1308 
4CB 1 38 WAIT_FOR_POOL: 
52 05 Q4CB 1400 TSTL Re ; Do we have an input message? 
se SA 05 ter 1403 BOVE RIO, SP E ie” sctad heal 
3: No, unwind stac 
00000500" ¢F 1 Ht 14 § JMP G*LEKSDLCKEXIT : Exit deadlock detection 
7C 8F ge 408 1405 10$: PUSHR #*M<R2,R3,R4,R5,R6> 3; Save registers 
56 O'CF 4p¢ 1406 ROVAB WeLKMSG_FKB.R6 ; Get address of fork block 
D 4E1 14 TSTL (R6) ; Verify it’s not in use 
1 4E3 14 3 BNEQ 90$ 3; Error 
55 18A6 9 4E5 146 MOVA FKBSK_LENGTH(R6) ,R5 3 set address of message buffer 
65 $2 34 28 O4E 1410 MOVCS # KMSG K_DLM_LENGTH,(R2),(R5) —; Copy message 
d 4ED 141 MOVL R6,R : Move fork Block address 
4 1 D4FQ 141 BSBB 5 : Queue fork block 
007C 8F BA D4F 141 POPR #*A<R2,R3,R4,R5,R6> 
> Rub ise 
‘ 
F7 1218 50$: FORK_WAIT ; Fork and wait 
65 7C O4FD 141 CLRQ (R5) : Indicate fork block is not is use 
52. 18 a3 9 4FF 1713 MOVAB FKBSK_LENGTH(RS) ,R2 :; Get address of message buffer 
5 D H 141 CLRL 3 Indicate no CSB address 
50 0 OO'GF OD 1359 MOVL ating CLUB Re 3; Get address o 
adh: co 8B C 14 CMPW = CLUBS$W_MEMSEQ(RO) ,- ; Has memseq changed? 
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BUG_CHECK 
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KMSGSW_MEMSEQ(R2) 
CKSDISPATCH 


LOCKMGRERR,FATAL 


; Yes, ignore this message 
; No, dispatch on this message 
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Symbol table BEE p=19ke 0:09;19 LersOn.caraosyaci ce mar: ° 2% (35) 
RSBSL_CSID = 00000038 
SCHSGC Pcevec etereeee 
SEND_DCCK_M SG 8 00674 R 
TSLT “UNITS = A120 
WAITFOR_POOL 00004¢B R 03 
prow woe eee nose maas + 
: Psect synopsis ! 
$ wena ocwme ne naam as 
PSECT name Allocation PSECT No. Attributes 
99000000 ¢ 9.) 00 ¢ 0.) NOPIC USR CON LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 99990 00 ( ) 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
$$040 8 : 8 4c ¢ 78.) ; ¢: -) NOPIC USR CON REL LCL NOSHR'- EXE RD WRT NOVEC LONG 
$$$020 0000514 ¢ 1308.) ( -) NOPIC USR CON REL LCL NOSHR’- EXE RD WRT NOVEC BYTE 
!"Pertormance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 3 0:0 09.93 0: 8301-60 
zonnens processing 13 0:0 tt fee g: B39) «32 
Symbol table sort 268 0:00: 1:95 3:08 
Symbol table output 1 0:00: 6°09 90:00:00. 6 
Psect synopsis output :00: 3-08 0:00:00.02 
Cross-reference output :00: 2-8 00:00:00.00 
Assembler run totals 88 :00:16.86 00:01:08.99 


The working set Limit was 2100 p pages 

99692 bytes (195 pages) of virtua memory were used to buffer the intermediate c ege : 

Thece were 100 pages of symbol table space allocated to hold 1684 non-local and 57 local symbols. 
1432 source lines were read in Pass 1, produc tng 20 object records in Pass 2. 

8 pages of virtual memory were used to define 26 macros. 


ey 


peoeececooeeecsceeeeccesccs$ 


Macro Library name Macros defined 
segpua :CSYSLOA. serach usteR. -MLB;1 1 
Ht thy :CSYS.OBJ 1 13 
$2558buA :ESYSLIBISTARLET. Fale: 32 6 
Tetacs (all Libraries) 2 


1790 GETS were required to define 20 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:DSTROLCK/OBJ=OBJ$:DSTRDLCK MSRC$:DSTRDLCK/UPDATE=(ENHS:DSTROLCK) +EXECML$/LIB+LIB$:CLUSTER/LIB 
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